COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"Italic ligature ff"
C00005 00003	"Italic ligature fi"
C00007 00004	"Italic ligature fl"
C00009 00005	"Italic ligature ffi"
C00012 00006	"Italic ligature ffl"
C00015 ENDMK
C⊗;
"Italic ligature ff";
call charbegin('173,10,0,0,ph,pd,ph.slant+.75pu);
cpen; lft3x1=lft0x2=round(-.25u); rt3x3=rt0x4=round(.5r+1.25u);
x90=.25r-.5u; x91=.25r+.5u; y90=y5; y91=y8;	% (the line of slant will be $90\to91$)
x5=.5[x6,x4]; x8=.5[x2,x7];
bot3y1=-.85d; y2=y1; y3=y4; y5-y3=y2-y8;
top6y5=h+oo; y6=.25[m,h]; y7=e; bot6y8=-d-oo;
new aa,bb; y6=aa[y90,y91]; x6=aa[x90,x91]; x7=bb[x90,x91]; y7=bb[y90,y91];
lft3x11=lft0x12=round(.5r-1.75u); rt3x13=rt0x14=round(r+.25u);
x80=.75r-.5u; x81=.75r+.5u; y80=y5; y81=y8;	% (2nd line of slant will be $80\to81$)
x15=.5[x16,x14]; x18=.5[x12,x17];
y11=y1; y12=y2; y13=y3; y14=y4; y15=y5; y16=y6; y17=y7; y18=y8;
new aa,bb; y16=aa[y80,y81]; x16=aa[x80,x81]; x17=bb[x80,x81]; y17=bb[y80,y81];
x9=lft1x6-1.5u-eps; x19=rt1x16+1.5u+eps; top6y9=m; y9=y19;
x20=.8[x5+x6-x90,x90]; y20=.8[y6,y90]; x21=.8[x8+x7-x91,x91]; y21=.8[y7,y91];
x30=.8[x15+x16-x80,x80]; y30=.8[y16,y80]; x31=.8[x18+x17-x81,x81]; y31=.8[y17,y81];
w3 draw 1; draw 3; draw 11; draw 13; 	% bulbs
hpen; w0 draw 9..19;	% bar
minvr 0; minvs 0;
draw |w0|4{0,1}..|w0#|5{-1,0}..|.5[w0,w1]|20{x6-x5,y6-y5}..
	|w1#|6{x91-x90,y91-y90}..|w1#|7{x91-x90,y91-y90}..
	|.5[w0,w1]|21{x8-x7,y8-y7}..|w0#|8{-1,0}..2{0,1};	% left stem
draw |w0|14{0,1}..|w0#|15{-1,0}..|.5[w0,w1]|30{x16-x15,y16-y15}..
	|w1#|16{x81-x80,y81-y80}..|w1#|17{x81-x80,y81-y80}..
	|.5[w0,w1]|31{x18-x17,y18-y17}..|w0#|18{-1,0}..12{0,1};	% right stem
minvr 0.5; minvs 0.5.
lig `f: `i = '174, `f = '173, `l = '175;
"Italic ligature fi";
call max(rhook,ph.slant+.5pwi-2pu);
call charbegin('174,10,0,0,ph,pd,acc);
cpen; lft3x1=lft0x2=round(-.25u); rt3x3=rt0x4=rt1x11;
x5=.5[x6,x4]; x8=.5[x2,x7];
x90=.25r-.5u; x91=.25r+.5u; y90=y5; y91=y8;	% (the line of slant will be $90\to91$)
bot3y1=-.85d; y2=y1; y3=y4; y5-y3=y2-y8;
top6y5=h+oo; y6=.25[m,h]; y7=e; bot6y8=-d-oo;
new aa,bb; y6=aa[y90,y91]; x6=aa[x90,x91]; x7=bb[x90,x91]; y7=bb[y90,y91];
x11=x12=good1 .75r; top6y11=m;
x9=lft1x6-1.5u-eps; top6y9=m; x19=x11; y19=y9;
x20=.8[x5+x6-x90,x90]; y20=.8[y6,y90]; x21=.8[x8+x7-x91,x91]; y21=.8[y7,y91];
w3 draw 1; draw 3; 	% bulbs
hpen; w0 draw 9..19;	% bar
minvr 0; minvs 0;
draw |w0|4{0,1}..|w0#|5{-1,0}..|.5[w0,w1]|20{x6-x5,y6-y5}..
	|w1#|6{x91-x90,y91-y90}..|w1#|7{x91-x90,y91-y90}..
	|.5[w0,w1]|21{x8-x7,y8-y7}..|w0#|8{-1,0}..2{0,1};	% stem
minvr .5; minvs .5;
call `a exit(12,r);	% closing hook
w1 draw 11..12.	% right stem
"Italic ligature fl";
call max(rhook,ph.slant+.5pwi-2pu);
call charbegin('175,10,0,0,ph,pd,acc);
cpen; lft3x1=lft0x2=round(-.25u); rt3x3=rt0x4=round(.5r+2u);
x5=.5[x6,x4]; x8=.5[x2,x7];
x90=.25r-.5u; x91=.25r+.5u; y90=y5; y91=y8;	% (the line of slant will be $90\to91$)
bot3y1=-.85d; y2=y1; y3=y4; y5-y3=y2-y8;
top6y5=h+oo; y6=.25[m,h]; y7=e; bot6y8=-d-oo;
new aa,bb; y6=aa[y90,y91]; x6=aa[x90,x91]; x7=bb[x90,x91]; y7=bb[y90,y91];
x11=x12=good1 .75r; top6y11=h;
x9=lft1x6-1.5u-eps; top6y9=m; x19=x11; y19=y9;
x20=.8[x5+x6-x90,x90]; y20=.8[y6,y90]; x21=.8[x8+x7-x91,x91]; y21=.8[y7,y91];
w3 draw 1; draw 3; 	% bulbs
hpen; w0 draw 9..19;	% bar
minvr 0; minvs 0;
draw |w0|4{0,1}..|w0#|5{-1,0}..|.5[w0,w1]|20{x6-x5,y6-y5}..
	|w1#|6{x91-x90,y91-y90}..|w1#|7{x91-x90,y91-y90}..
	|.5[w0,w1]|21{x8-x7,y8-y7}..|w0#|8{-1,0}..2{0,1};	% stem
minvr .5; minvs .5;
call `a exit(12,r);	% closing hook
w1 draw 11..12.	% right stem
"Italic ligature ffi";
call max(rhook,ph.slant+.5pwi-2pu);
call charbegin('176,15,0,0,ph,pd,acc);
cpen; lft3x1=lft0x2=round(-.25u); rt3x3=rt0x4=round(1/3r+2.25u);
x90=1/6r-.5u; x91=1/6r+.5u; y90=y5; y91=y8;	% (the line of slant will be $90\to91$)
x5=.5[x6,x4]; x8=.5[x2,x7];
bot3y1=-.85d; y2=y1; y3=y4; y5-y3=y2-y8;
top6y5=h+oo; y6=.25[m,h]; y7=e; bot6y8=-d-oo;
new aa,bb; y6=aa[y90,y91]; x6=aa[x90,x91]; x7=bb[x90,x91]; y7=bb[y90,y91];
lft3x11=lft0x12=round(1/3r-2.25u); rt3x13=rt0x14=rt1x21;
x80=.5r-.5u; x81=.5r+.5u; y80=y5; y81=y8;	% (2nd line of slant will be $80\to81$)
x15=.5[x16,x14]; x18=.5[x12,x17];
y11=y1; y12=y2; y13=y3; y14=y4; y15=y5; y16=y6; y17=y7; y18=y8;
new aa,bb; y16=aa[y80,y81]; x16=aa[x80,x81]; x17=bb[x80,x81]; y17=bb[y80,y81];
x21=x22=good1(r-2.5u); top6y21=m;
x9=lft1x6-1.5u-eps; x19=x21; top6y9=m; y9=y19;
x40=.8[x5+x6-x90,x90]; y40=.8[y6,y90]; x41=.8[x8+x7-x91,x91]; y41=.8[y7,y91];
x30=.8[x15+x16-x80,x80]; y30=.8[y16,y80]; x31=.8[x18+x17-x81,x81]; y31=.8[y17,y81];
w3 draw 1; draw 3; draw 11; draw 13; 	% bulbs
hpen; w0 draw 9..19;	% bar
minvr 0; minvs 0;
draw |w0|4{0,1}..|w0#|5{-1,0}..|.5[w0,w1]|40{x6-x5,y6-y5}..
	|w1#|6{x91-x90,y91-y90}..|w1#|7{x91-x90,y91-y90}..
	|.5[w0,w1]|41{x8-x7,y8-y7}..|w0#|8{-1,0}..2{0,1};	% left stem
draw |w0|14{0,1}..|w0#|15{-1,0}..|.5[w0,w1]|30{x16-x15,y16-y15}..
	|w1#|16{x81-x80,y81-y80}..|w1#|17{x81-x80,y81-y80}..
	|.5[w0,w1]|31{x18-x17,y18-y17}..|w0#|18{-1,0}..12{0,1};	% middle stem
minvr 0.5; minvs 0.5;
call `a exit(22,r);	% closing hook
w1 draw 21..22.	% right stem
lig '173: `i = '176, `l = '177;
"Italic ligature ffl";
call max(rhook,ph.slant+.5pwi-2pu);
call charbegin('177,15,0,0,ph,pd,acc);
cpen; lft3x1=lft0x2=round(-.5u); rt3x3=rt0x4=round(1/3r+2u);
x90=1/6r-.5u; x91=1/6r+.5u; y90=y5; y91=y8;	% (the line of slant will be $90\to91$)
x5=.5[x6,x4]; x8=.5[x2,x7];
bot3y1=-.85d; y2=y1; y3=y4; y5-y3=y2-y8;
top6y5=h+oo; y6=.25[m,h]; y7=e; bot6y8=-d-oo;
new aa,bb; y6=aa[y90,y91]; x6=aa[x90,x91]; x7=bb[x90,x91]; y7=bb[y90,y91];
lft3x11=lft0x12=round(1/3r-2u); rt3x13=rt0x14=round(2/3r+2u);
x80=.5r-.5u; x81=.5r+.5u; y80=y5; y81=y8;	% (2nd line of slant will be $80\to81$)
x15=.5[x16,x14]; x18=.5[x12,x17];
y11=y1; y12=y2; y13=y3; y14=y4; y15=y5; y16=y6; y17=y7; y18=y8;
new aa,bb; y16=aa[y80,y81]; x16=aa[x80,x81]; x17=bb[x80,x81]; y17=bb[y80,y81];
x21=x22=good1(r-2.5u); top6y21=h;
x9=lft1x6-1.5u-eps; x19=x21; top6y9=m; y9=y19;
x40=.8[x5+x6-x90,x90]; y40=.8[y6,y90]; x41=.8[x8+x7-x91,x91]; y41=.8[y7,y91];
x30=.8[x15+x16-x80,x80]; y30=.8[y16,y80]; x31=.8[x18+x17-x81,x81]; y31=.8[y17,y81];
w3 draw 1; draw 3; draw 11; draw 13; 	% bulbs
hpen; w0 draw 9..19;	% bar
minvr 0; minvs 0;
draw |w0|4{0,1}..|w0#|5{-1,0}..|.5[w0,w1]|40{x6-x5,y6-y5}..
	|w1#|6{x91-x90,y91-y90}..|w1#|7{x91-x90,y91-y90}..
	|.5[w0,w1]|41{x8-x7,y8-y7}..|w0#|8{-1,0}..2{0,1};	% left stem
draw |w0|14{0,1}..|w0#|15{-1,0}..|.5[w0,w1]|30{x16-x15,y16-y15}..
	|w1#|16{x81-x80,y81-y80}..|w1#|17{x81-x80,y81-y80}..
	|.5[w0,w1]|31{x18-x17,y18-y17}..|w0#|18{-1,0}..12{0,1};	% middle stem
minvr 0.5; minvs 0.5;
call `a exit(22,r);	% closing hook
w1 draw 21..22.	% right stem